﻿Option Strict On
Option Explicit On
Option Infer On

Imports System
Imports GenDotNet.TemplateSupport
Imports GenDotNet.Task.Common
Imports GenDotNet.ObjectModel

'Public Delegate Function ObjectArgsDelegate(ByVal args As ObjectEventArgs) As String

Public Class ObjectEventArgs
   Inherits System.EventArgs

   Private mObjectData As IObjectData
   Private mInfo As BaseInfo

   Public Sub New(ByVal info As BaseInfo, _
                  ByVal objectData As IObjectData)
      Me.mInfo = info
      Me.mObjectData = objectData
   End Sub

   Public Property ObjectData() As IObjectData
      Get
         Return mObjectData
      End Get
      Set(ByVal value As IObjectData)
         mObjectData = value
      End Set
   End Property

   Public Property Info() As BaseInfo
      Get
         Return mInfo
      End Get
      Set(ByVal value As BaseInfo)
         mInfo = value
      End Set
   End Property


End Class
